home *** CD-ROM | disk | FTP | other *** search
/ .net 1998 February / netCD41.iso / pc / NETCD41.dir / 00039_Browser launcher.ls < prev    next >
Encoding:
Text File  |  1997-12-11  |  2.3 KB  |  74 lines
  1. on LaunchBrowser
  2.   global gPlatform, gCDDrive, gURL, gMA, gBrowserLoc, gPathSep, j2736d2937m2382, j2345q8345s3245, gMasterAppObject, gVoid
  3.   if gBrowserLoc = EMPTY then
  4.     alert("To access the Internet using the .net CD-ROM you must have an Internet connection using Internet Explorer as the default browser. Detecting Browser...")
  5.     if not objectp(gMA) then
  6.       if the machineType <> 256 then
  7.         openXLib("MasterAp.pxo")
  8.       else
  9.         openXLib("MastrApp.dll")
  10.       end if
  11.       if the machineType = 256 then
  12.         set j2736d2937m2382 to "Y7729J3338J3942"
  13.       else
  14.         set j2345q8345s3245 to "u2321h8334k9372"
  15.       end if
  16.       set gMA to MasterApp(mnew)
  17.       if the machineType = 256 then
  18.         set j2736d2937m2382 to gVoid
  19.       else
  20.         set j234q8345s3245 to gVoid
  21.       end if
  22.       if not objectp(gMA) then
  23.         alert("No object!")
  24.         return 
  25.       end if
  26.     end if
  27.     set gBrowserLoc to gMA(mLocateExecutable, the pathName & "web" & gPathSep & "ie3.htm")
  28.     if word 1 of gBrowserLoc = "error:" then
  29.       set gBrowserLoc to gMA(mLocateExecutable, the pathName & "web" & gPathSep & "netscape.htm")
  30.     end if
  31.     if word 1 of gBrowserLoc = "error:" then
  32.       alert("No browser detected. To access the Internet using the .net CD-ROM you must have an Internet connection using Internet Explorer set up as the default browser. Exiting...")
  33.       if objectp(gMA) then
  34.         gMA(mdispose)
  35.       end if
  36.       exit
  37.     else
  38.       if objectp(gMA) then
  39.         gMA(mdispose)
  40.       end if
  41.     end if
  42.   end if
  43.   if not objectp(gMA) then
  44.     if the platform = 256 then
  45.       openXLib(the pathName & "MastrApp.dll")
  46.     else
  47.       openXLib("MasterAp.pxo")
  48.     end if
  49.     if the machineType = 256 then
  50.       set j2736d2937m2382 to "Y7729J3338J3942"
  51.     else
  52.       set j2345q8345s3245 to "u2321h8334k9372"
  53.     end if
  54.     set gMA to MasterApp(mnew)
  55.     if the machineType = 256 then
  56.       set j2736d2937m2382 to gVoid
  57.     else
  58.       set j234q8345s3245 to gVoid
  59.     end if
  60.     if not objectp(gMA) then
  61.       alert("No object!")
  62.       return 
  63.     end if
  64.   end if
  65.   alert("Launching... " & the pathName & "web" & gPathSep & gURL & ".htm")
  66.   set instanceID to gMA(mOpenDocument, the pathName & "web" & gPathSep & gURL & ".htm")
  67.   if instanceID <= 0 then
  68.     alert("Error launching: " & string(instanceID))
  69.   end if
  70.   if objectp(gMA) then
  71.     gMA(mdispose)
  72.   end if
  73. end
  74.